﻿Module Var_Globales

    ''lo uso para la historia clinica
    Dim Dni_Paciente As String
    Dim ID_tipoVIsta As Integer

    '---------
    'lo uso para notificar al usuario que no tiene q tiene una irregularidad en el trabjo
    Dim Msje_AL_Usuario As String
    Dim Msje_AL_Usuario2 As String


    Public Enum TipoVisita

        'estos son los  id de la tabla tipo visita

        Consulta = 1
        Guardia = 2
        Internacion = 3
        Vacunacion = 4
        Visita = 5
        Deceso = 6


    End Enum
    ''lo uso para Notificar al usuario De una iregularidad en su perfil
    Public Property Dev_mesje_paraNotificar As String
    Public Property Dev_mesje_paraNotificar2 As String

    '   ----declaracion de propiedades ----
    Public Property Dev_ID_tipoVisita As Integer
    Public Property Dev_dniPaciente As String



    'Variables para navegabilidad
    Property Dev_PaginaAnterior As String




    'Variables para navegabilidad
    Dim paginaAnterior As String
    Dim paginaActual As String



    Public Sub Setea_paginas(ByVal _PaginaActual As String)

        paginaAnterior = paginaActual
        paginaActual = _PaginaActual

        Dev_PaginaAnterior = paginaAnterior


    End Sub
    Public Sub Set_Msje_AL_Usuario(ByVal Msje1 As String, Optional ByVal Msje2 As String = "")

        Msje_AL_Usuario = Msje1
        Dev_mesje_paraNotificar = Msje_AL_Usuario


        Msje_AL_Usuario2 = Msje2
        Dev_mesje_paraNotificar2 = Msje_AL_Usuario2


    End Sub

    Public Sub SeteaTipoVisita(ByVal _Tipovisita As TipoVisita)

        ID_tipoVIsta = _Tipovisita

        '' propiedad
        Dev_ID_tipoVisita = ID_tipoVIsta


    End Sub
    Public Sub Setea_dniPaciente(ByVal _dni As String)

        Dni_Paciente = _dni
        Dev_dniPaciente = Dni_Paciente

    End Sub








End Module
